﻿Public Class PaginaBase
    Inherits System.Web.UI.Page

    Protected Sub GeneraScriptAjax(ByVal script As String, ByVal id As String)

        Dim sb As New System.Text.StringBuilder()
        sb.Append("<script language='javascript'>")
        sb.Append(script)
        sb.Append("</script>")

        ScriptManager.RegisterStartupScript(Me, Me.GetType(), id, sb.ToString(), False)
    End Sub


    Protected Sub GeneraScript(ByVal script As String, ByVal id As String)

        If (Not ClientScript.IsStartupScriptRegistered(Me.GetType(), id)) Then
            ClientScript.RegisterStartupScript(Me.GetType(), id, script, True)
        End If

    End Sub

    ''' <summary>
    ''' Metodo que muestra un alert de javascript en pantalla
    ''' </summary>
    ''' <param name="mensaje">Mensaje a mostrar en el alert</param>
    ''' <param name="redirecciona">Flag que indica si se va a realizar una redireccion de pagina</param>
    ''' <param name="paginaRedireccion">Pagina a donde se redirecciona despues de aceptar el alert. Solo si la variable redirecciona es True</param>
    ''' <remarks></remarks>

    Protected Sub Alerta(ByVal mensaje, ByVal redirecciona, ByVal paginaRedireccion)


        Dim random As New Random(System.DateTime.Now.Millisecond)

        Dim sb As New System.Text.StringBuilder()
        sb.Append("alert('")
        sb.Append(mensaje)
        sb.Append("');")

        If redirecciona Then
            sb.Append("location.href='")
            sb.Append(paginaRedireccion)
            sb.Append("';")
        End If

        GeneraScript(sb.ToString, "Alerta" + random.Next.ToString)

    End Sub


    Protected Sub Confirmacion(ByVal mensaje, ByRef bExito)

        Dim random As New Random(System.DateTime.Now.Millisecond)
        Dim sb As New System.Text.StringBuilder()
        sb.Append("confirm('")
        sb.Append(mensaje)
        sb.Append("');")


        'sb.Append("if confirm(").Append(mensaje).Append("))")
        'sb.Append("document.getElementById('")
        'sb.Append(ClientID)
        'sb.Append("').value = " & bExito & ";")

        GeneraScript(sb.ToString, "Alerta" + random.Next.ToString)



    End Sub

End Class
